LA Case

Data (LA + CPA, ACS, Etc.)

Scope & Methodology

LA_CPA_Map <- leaflet() %>%
  addProviderTiles("CartoDB.Positron") %>%
  addPolygons(data=CPA_Geo, 
              color="#70cfcb",
              opacity = 1,
              weight = 1.2,
              label= paste("CPA Name:", CPA_Geo$NAME_ALF) %>%
      lapply(htmltools::HTML))
LA_CPA_Map

Data Wrangling - Permits

Basic Stats

“Development Permits (Building Addition, New Building, or Building Demolition)”, “Other Permits (None-building permits, swimming-pool, sign, etc.)”

Stats_1_fig

Where Developments had been going on?

# Basemap
basemap <- leaflet() %>%
  # add different provider tiles
  addProviderTiles(
    "OpenStreetMap",
    # give the layer a name
    group = "OpenStreetMap"
  ) %>%
  addProviderTiles(
    "Stamen.Toner",
    group = "Stamen.Toner"
  ) %>%
  addProviderTiles(
    "Stamen.Terrain",
    group = "Stamen.Terrain"
  ) %>%
  addProviderTiles(
    "Esri.WorldStreetMap",
    group = "Esri.WorldStreetMap"
  ) %>%
  addProviderTiles(
    "Wikimedia",
    group = "Wikimedia"
  ) %>%
  addProviderTiles(
    "CartoDB.Positron",
    group = "CartoDB.Positron"
  ) %>%
  addProviderTiles(
    "Esri.WorldImagery",
    group = "Esri.WorldImagery"
  ) %>%
# add a layers control
  addLayersControl(
    baseGroups = c(
      "OpenStreetMap", "Stamen.Toner",
      "Stamen.Terrain", "Esri.WorldStreetMap",
      "Wikimedia", "CartoDB.Positron", "Esri.WorldImagery"
    ),
    # position it on the topleft
    position = "topleft"
  )

icon.fa <- makeAwesomeIcon(
  icon = "flag", markerColor = "red",
  library = "fa",
  iconColor = "black"
)